#Exercice 3

setwd("C:/Documents and Settings/A276/Bureau")
partition <- function(X){

  nX <- length(X);
  
  goon <- 1;
  while(goon){
    pas <- 10/nX;
    I <- seq(0,1,pas);
    lI<-length(I);
    I[lI] <- 1;
    I<-qnorm(I);
    
    U <- rbinom(lI,1,0.5);
    
    II<-I(U);
    lII<-length(II);
    br<-I[U==1]
    br[1] <- min(X);
    br[length(br)] <- max(X);
    
    
    h <- hist(X,breaks=br,plot=FALSE)
    if(all(h$counts>4)){
      goon <- 0;
    }
  }
  return(h)
}

#1.
loi <- rnorm(1000,mean=0,sd=1)
hist(loi)